#!/usr/bin/env perl
#Package main

use strict "vars";
use warnings;
use 5.010;

our (@friends, @dogs, $key, $value);
my ($name, $pal, $money);
$name = "Susanne";
@friends = qw(Joe Jeff Jan);
local $main::dude = "Ernie";
$pal = "Linda";
$money = 1000;
while (($key, $value) = each (%main::)) {
  say "$key:\t$value";
}



